### Alizade, Dancygier, Ditlmann 
### "National Penalties Reversed"
### Replication Code 
### Table C1
### For questions, contact jalizade@princeton.edu

# setup
rm(list = ls())
setwd("C:/Users/Jey/Dropbox/WZB/NaturalizationExperiment/Submission/JOP/replication_JOP/data")
library(readstata13)
dat <- read.dta13("data_survey1.dta")

# table with summary statistics
t(sapply(names(dat), function(x) {
  data.frame(Mean=mean(dat[,x], na.rm=T), SD=sd(dat[,x], na.rm=T), Min=min(dat[,x], na.rm=T), Max=max(dat[,x], na.rm=T))
}))

